home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / DMTDEMOS / DSKCODE.DEM < prev    next >
Text File  |  1994-07-02  |  1KB  |  53 lines
  1. program DskCodeSample;
  2.  
  3.  uses crt, DMT;
  4.  
  5.  var
  6.    MediaDescriptor : byte;
  7.  
  8.    DiskFormat      : string;
  9.  
  10.    DrvLetter       : char;
  11.  
  12. begin
  13.   Color( 7, 0 );
  14.   clrscr;
  15.  
  16.   write( 'Select drive to check ( A-Z ) [ :]');
  17.   gotoxy( wherex - 3, wherey );
  18.   DrvLetter := upcase( readkey );
  19.   writeln( DrvLetter );
  20.  
  21.   MediaDescriptor := DskCode( DrvLetter );      { Call DskCode function }
  22.  
  23.   case ( MediaDescriptor ) of
  24.     $F0 : DiskFormat := ' (1.44 or 2.88Mb floppy)';
  25.  
  26.     $F8 : DiskFormat := ' (Hard Disk)';
  27.  
  28.     $F9 : DiskFormat := ' (720Kb or 1.2Mb floppy)';
  29.  
  30.     $FA,
  31.     $FF : DiskFormat := ' (320Kb floppy)';
  32.  
  33.     $FC : DiskFormat := ' (180Kb floppy)';
  34.  
  35.     $FD : DiskFormat := ' (360Kb floppy)';
  36.  
  37.     $FE : DiskFormat := ' (160Kb floppy)';
  38.   end;
  39.  
  40.   if ( ErrFlag ) then
  41.     begin
  42.       writeln( #7 );
  43.       writeln( ShowError( GetErrCode ) );
  44.     end
  45.   else
  46.     begin
  47.       clrscr;
  48.       writeln( 'Disk Drive Specified  : ', DrvLetter );
  49.       writeln( 'Media descriptor code : ', WrdToHex( MediaDescriptor ), 'h', DiskFormat );
  50.    end;
  51.  
  52.   GetEnter;
  53. end.